home *** CD-ROM | disk | FTP | other *** search
/ Jurassic Jigsaws / JURASSIC.BIN / skooldem.dir / 00117_Script_movie script < prev    next >
Text File  |  1996-09-19  |  1KB  |  37 lines
  1. global filesep, gHiliteChannel
  2.  
  3.  
  4. on startmovie
  5.   if the machinetype = 256 then set filesep = "\"
  6.   else set filesep = ":"
  7.   set gHiliteChannel = 40
  8.   puppetsprite gHiliteChannel, TRUE
  9.   
  10. end startmovie
  11.  
  12.  
  13. on buttonscript mWhichSprite
  14.   if not the puppet of sprite mWhichSPrite then puppetsprite mWhichSprite, TRUE
  15.   put the membernum of sprite mWhichSPrite into tOrigMember
  16.   put the number of member (the name of member tOrigMember & "Down" ) into tDownMember
  17.   set the membernum of sprite mWhichSprite = member tDownMember
  18.   updatestage
  19.   repeat while the mousedown
  20.     put the mousecast into tRollMember
  21.     if tRollMember = tDownMember or tRollMember = tOrigMember then
  22.       set the membernum of sprite mWhichSPrite = tDownMember
  23.       updatestage
  24.     else
  25.       set the membernum of sprite mWhichSPrite = tOrigMember
  26.       updatestage
  27.     end if
  28.   end repeat
  29.   set the membernum of sprite mWhichSPrite = tOrigMember
  30.   updatestage
  31.   
  32. end buttonscript
  33.  
  34. on playsoundeffect whatfolder, whatsound
  35.   sound playfile 1, the pathname & whatfolder & filesep & whatsound
  36.   
  37. end playsoundeffect